home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / obero / Interfaces3_4.lha / Interfaces / Translator.mod < prev    next >
Text File  |  1994-03-05  |  968b  |  42 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: Translator.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE Translator;
  11.  
  12. IMPORT e * := Exec;
  13.  
  14. CONST
  15.   translatorName * = "translator.library";
  16.  
  17. (* Translator error return codes *)
  18.  
  19.   notUsed   * = -1;  (* This is an oft used system rc  *)
  20.   noMem     * = -2;  (* Can't allocate memory          *)
  21.   makeBad   * = -4;  (* Error in MakeLibrary call      *)
  22.  
  23. VAR
  24.   base * : e.LibraryPtr;
  25.  
  26. PROCEDURE Translate *{base,- 30}(inputString{8}      : ARRAY OF CHAR;
  27.                                  inputLength{0}      : LONGINT;
  28.                                  VAR outputBuffer{9} : ARRAY OF CHAR;
  29.                                  bufferSize{1}       : LONGINT): LONGINT;
  30.  
  31. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  32.  
  33. BEGIN
  34.  base := e.OpenLibrary(translatorName,33);
  35.  IF base=NIL THEN HALT(20) END;
  36.  
  37. CLOSE
  38.  IF base#NIL THEN e.CloseLibrary(base) END;
  39.  
  40. END Translator.
  41.  
  42.